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14-Sep-1984 12:31:56 FORRTL.SRC FORENRENS B 2:1 (1) Tab 
MODULE FORSERRSHE (4T TLE" PERTH Fieens and save error info’ 
IDENT = *1-003' File: FORERRSNS.B32 Edit: $BL1003 


BEGIN 


' 
LR RRRA AERA EERERAEAE REET AERA EARAERERAAEEE EEE 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
!® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


e 
& 
* 
® 
4 
' * 
'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND soriee * 
'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
'* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
't OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. * 
® 
6 
& 
* 
® 
* 
* 
t 
® 


is iS nD Ge IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
He ULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
1 CORPORATION. 


it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Lee RERERAEEEAEAEEEAEEEE EAA AAAAAAAAAEARAKERERRRAAAEES 
: 


WAAR PIPININININININID 2 2 2 OO OS SS MH COOOOOCOCOO 
COODWNOA MNES WIN —$ O ODNOU EWN (OO ODNAOUE WN OOONOU Sw 


++ 
i FACILITY: FORTRAN Support Library 


WWAANMWIAAIAIRIPIPIPINPINONPININID 2 PO Oe en 
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! 
i 
3 ! 
3 i ABSTRACT: 
3 : 
3 i 
3 3 i Return information about Last FORTRAN error (ERRSNS). 
3 3 i Also an internal routine to save that information when 
i st an error occurs in OWN storage. | 
4 0041 ENVIRONMENT: User Mode - AST re-entrant | 
: B07 AUTHOR: Thomas N. Hastings, CREATION DATE: 8=Nov-1977 
4 0045 i MODIFIED BY: 
4 0046 } 
4 0047 i Thomas N. Hastings, 8-Nov-1977: VERSION 
4 0048 i fPrey ious edit history removed. SBL 29-Jun-1983] 
4 0049 i 7-001 - Update score’ ht statement and version number. JBS 16-NOV-78 
5 0050 i 1-002 - Declare NULLPARAMETER an ACTUALPARAME TER for new BLISS 
5 0051 i compiler. JBS 22-NOV- 
5 beg i 1-003 - Use prologue file. Add FORSSINIT_ERRSET and call bac 
é $32 2 routine to store error info in ERRSET/ERRTST table. “Sat © 29-Jun-1983 
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ERRSNS and save error info 


; PROLOGUE FILE: 


REQUIRE "RTLIN:FORPROLOG'; 
' 


; TABLE OF CONTENTS: 


FORWARD ROUTINE 
FORSERRSNS: NOVALUE, 
FORSERRSNS_W: NOVALUE, 
FORSSERRSNS_SAV: NOVALUE 
FORSSINIT_ERRSET: NOVALUE; 


; MACROS: 


i EQUATED SYMBOLS: 


' 
J 
' 
J 
LITERAL 

NPARMAX = 5; 


OWN STORAGE: 
OWN 


LAST_ERROR_INFO: VECTOR CNPARMAX+1), 
LAST_AST_INFO: VECTOR CNPARMAX+1), 


RECORD_ERROR_ADDR: INITIAL (0); 


: EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 


x 
16S 
14 


The following offsets are used to 


4 FORRTL.SRCJFORER 


FORS definitions 


Return error information about last error 
Same except word size args ; 
Internal routine to save information 
Initialize for ERRSET/ERRTST 


access OWN vectors, LOCAL vectors, and formals: 


! No. of parameters max. 


! Last error info (non-AST level) 
' Last error info (AST level) 

! Oth entry not used 

! Address of RECORD_ERROR rtn 


LIBSAST_IN_PROG: ADDRESSING_MODE (GENERAL); ! TRUE if AST in progress 


4 00:91:36 AX-11 Bliss-32 V4. 
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ERRSN 
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FORRTL FORERRS 


ZSBTTL"FORSERRSNS' 


GLOBAL ROUTINE FORSERRSNS ( 
FORT _ERR_NO 


Optional adr. to get FORTRAN error no. 


- ’ 


' 
RMS_STS, ! Optional adr. ro get RMS status 
RMS STV, ! Optional adr. to get RMS/VMS value 
FORT LUN ! Optional adr. to get FORTRAN logical unit number 
VAX_T1_COND_VAL) i Optional adr. to get VAX-11 condition value 
:NOVALOE = ! No value returned 


'o+ 


ee te te tt te te te ee ee ee ee te te ee te ee ee ee ee ee ee eee 


FUNCTIONAL DESCRIPTION: 


Returns information about last FORTRAN error, if any, and clears it to 0 
Separate data bases are kept for AST and non-AST Level 

so that they do not conflict. That is the Last error returned 

is that which occurred at the level of the caller (AST level 

or not AST level). Therefore a modular re-entrant procedure 

can CALL FORSERRSNS and still remain AST re-entrant 

provided that FORSERRSNS is called after an 1/0 statement 

with no intervening calls (which might call FORSERRSNS). 

ALL parameters are optional. A call with no parameters 

has the effect of clearing the error information at the current level. 
It is good practice to CALL FORSERRSNS before doing 

1/0 to initialize the OWN storage. Otherwise a previous 

1/0 error may have left error information in the OWN storage. 

Note: successful 1/0 operations do not affect the 

error information OWN storage. 


FORMAL PARAMETERS: 


or ERR_NO.wlu.r Optional adr. to receive FORTRAN error no. 
RMS_STS.wlu.r Optional adr. to receive RMS status 
CRMS_STV.wlu.r Optional adr. to receive RMS/VMS value 


CFORT_LUN.wlu.r Optional adr. to receive FORTRAN logical unit no. 
CVAX_T1_COND_VAL.wlc.rJJJJ] Optional adr. to receive VAX=-11 condition value 


IMPLICIT INPUTS: 


VMS info whether an AST is in progress or not (using LIBSAST_IN_PROG) 
Either LAST_ERROR_INFO vector or LAST_AST_INFO vector 


IMPLICIT OUTPUTS: 


Either LAST_ERROR_INFO vector or LAST_AST_INFO vector is cleared 
depending on the Tevel of the caller TAST or in progress or not) 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
The OWN storage used to remember the last error is set to 0. 


BEGIN 


6 
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FORSERRSNS FORTRAN ERRSNS and save error info 16-Sep-1984 00:21:34 AX-11 Bliss-32 V4.0-74 p 4 
1608 FORSERRSNS ba aers 90°91 86 FORRTL.SRC FOREMREYS 69251 — (3) | 
; 157 0 : : BUILTIN NULLPARAMETER, ACTUALPARAMETER; | 
: 159 0 é LOCAL 
; 169 6 ; LAST_INFO: REF VECTORCNPARMAX+1,LONG]; ! Base pointer to either LAST_ERROR_INFO or LAST_AST_INFO 
; 16¢ 0225 
3: 16 0226 \+ 
: «164 0227 ! Determine whether an AST is in progress or not and set u 
: 122 8 23 base pointer LAST_INFO to point to OWN storage for that Tevet. 
: 167 0230 é 
; 168 4) LAST_INFO = (IF LIBSAST_IN_PROG () THEN LAST_AST_INFO ELSE LAST_ERROR_INFO); | 
i Ho i gy a Bak A | 
3 ° 0 appropriate storage to e caller's parameters | 
: 7 0235 2 : which ore present and clear each OWN storage ocation. 
. oF, 0236 2 t- 
s 174 0237 2 
3: 175 0238 é INCR I FROM 1 TO NPARMAX DO 
: 176 0239 BEGIN 
See 0240 3 IF NOT NULLPARAMETER (.1) THEN ACTUALPARAMETER(.1) = .LAST_INFOL.1]; 
; ie 0241 3 LAST_INFOL.1] = 0; 
s 179 Ose§ 2 END; 
; 180 02435 2 
> 181 0244 2 \+ 
; 182 0245 2 ' Return | 
> (183 0246 2 \- 
> (184 0247 2 
3; «6185 0248 2 RETURN 
>: 186 0249 1 END; 
-TITLE FORSERRSNS FORTRAN ERRSNS and save error info | 
IDENT \1-003\ 
.PSECT _FORSDATA,NOEXE, PIC,2 | 
00000 LAST_ERROR INFO: | 
00018 LAST_AST_INFO: 
~BLK 24 
00000000 00030 RECORD_ERROR_ADDR: 
-LONG 0 3 
-EXTRN LIBSAST_IN_PROG 
-PSECT _FORSCODE.NOWRT, SHR, PIC,2 
0004 00000 -ENTRY FORSERRSNS, Save R2 + 0164 | 
000000006 00 0 Fe Bons CALLS 40, LIBSAST_IN_PROG : 0231 | 
9 0 3 000 BLBC $ : 
52 00000000' F H a0 MOVAB AST_AST_INFO, LAST_INFO ; 
52 00000000" EF 9 015 1$: MOVAB LAST_ERROR_INFO, LAST_INFO ; | 
5 1 D 01C 3: MOVL y : O34) | 
50 6C 08 FD OF 3$: CMPZ2V #0, #8, (AP), I : 0240. 
D 0024 BLSS 4$ 3 


ot 
we 
nn -—-oOo 
a] wTmMa 
~ mon 
ooo 
a 
ao eteteteterete 
@ 
a 
| -_ 
*. 
™N 
nro 
~<-@ 
| ~ 2 
i wm 
o2 
| wo 
wa 
>a 
uw 
Na 
moO ~ 
| tu - 
| ow a 
| nw ~" 
| x 
| — a 
@-: orn 
| a 
he a) 
-a 5 thai dtind 
‘a Zoo 
xo eS 
<u aan 
~~ .2|-  Me 
— + Fis 
ws wee 
~~ “aww 
Qa ada s 


4 
6 
A 
$ 
A 
L 
5 


mn ~~~ 

-— 

we ao 

-* *« ws 

om Bs 

o- §—O>>a0r 
mMmooiodow 

wv -@Ofefveca 

000 

oo 

-— 

i) | 

aa 

wove ** | 
mn a | 
es wT 

zo. 

—- OCOunmMmoct 
CUCUICUOII ETE 
ole el ololol—=) 
foe elolololo) o 
Oooooooo 

Co 
wwmnoown sr CO 
O-OoOaouO CO 

© 
OwDoOooow 
Tovar O w 
ve wou a 
oOo ooo oO 

ve 

o G 

a < 

c Oo 

— i 

a 

. 

o 

|= - 

. a 

av --—- OO i) 

mo ww @e 

a @ 

> 

@ Co 

.) c 

Prd 

70 rw 

c | 

«e o 

fo 4 

” 

z 

”~ 

ts 4 w 

ew ws . 

wz nn 

” @ 
za cod 
<a ~ 

aw 2 

—nA 

ca o 

oo nw 

prarrs 

a 

N 

on 

” 

wn” 

z a 

” c 

f+ 4 — 

rreeal = 

° 

[* 4 

*e 


FORS 
1-00 


7 
FORSERRSNS AN ERRSNS and inf 16- -1984 2:21:34 AX-11 iss-3 4.0- 
conse nd save error info 4 Sep OO 91:34 1 Si tee 2 V4.0 


RRSNS_W 14-Sep-1984 FORR 


ZSBTTL*FORSERRSNS _W' 
GLOBAL MOTE AR ORSCRASNS.W ( 


74 Page 6 
FORERRSNS.B52;1 (4) 


ma 
» 


! Optional adr. to get FORTRAN error no. 
! Optional adr. ro get RMS status 

' Optional adr. to get RMS/VMS value 
' Optional adr. to get FORTRAN logical unit number 
id ! Optional adr. to get VAX=11 condition value 
“ NOVALOE = ! No value returned 
FUNCTIONAL DESCRIPTION: 


FORSERRSNS and FORSERRSNS_W are the same routines except 

for the data size returned. 

Returns information about last FORTRAN error, if any, and clears it to 0 
Separate data bases are kept for AST and non-AST level 

so that they do not conflict. That is the last error returned 


MPO A rs 


| 
is that which occurred at the level of the caller (AST level | 
or not AST level). Therefore a modular re-entrant procedure 

can CALL FORSERRSNS_W and still remain AST re-entrant 

provided that FORSERRSNS_W is called after an I/0 statement 

with no intervening calls (which might call FORSERRSNS_W). 
ALL parameters are optional. A call with no parameters 
has the effect of clearing the error information at the current level. | 
It is good practice to CALL FORSERRSNS_W before doin 

1/0 to initialize the OWN storage. Otherwise a previous | 
1/0 error may have left error information in the OWN storage. 


SQOOCOCOCO0C000D000000M00 
VIFWN—OOONOUESWN—O0®@ 


Note: successful 1/0 operations do not affect the 
error information OWN storage. 


FORMAL PARAMETERS: 


FORT_ERR_NO.wwu.r Optional adr. to receive FORTRAN error no. 

RMS_STS.wwu.r Optional adr. to receive RMS status 

RMS _STV.wwu.r Optional adr. to receive RMS/VMS value 

FORT LUN. wwu.r Beh 'ane) adr. to receive FORTRAN logical unit no. 
VAX_T1_COND_VAL.wwu.rJJJJ] Optional adr. to receive VAX-11 condition value<15:0> 


IMPLICIT INPUTS: 


AWN EWN OO CONAUSWH—OOOn 


WAA.AANIAIRO RI PUNINPUNINIPONID 2 2 PO OS OS Se s33S3 


ee ec ce ee ee ee ee ee ee et ee ee el ee ee el ce el el cel el eel el el el ee ce el el ee ce el el cl el el ce el el ce cel el ee eel eel el 


POPIPIPIPOPONINDNIPIPONPONDNYINININNONONINIPINIPUPIPOPOPSNI PINON PONOPUPMUNYPoNy 


7 0289 VMS info whether an AST is in progress or not (using LIBSAST_IN_PROG) 

: 593 Either LAST_ERROR_INFO vector or LAST_AST_INFO vector 

44 IMPLICIT OUTPUTS: 

2 $594 Either LAST_ERROR_INFO vector or LAST_AST_INFO vector is cleared | 
? 8592 depending on the Tevel of the caller TAST or in progress or not) | 
35 0297 ROUTINE VALUE: 
36 0298 COMPLETION CODES: 
37 0299 
38 0300 NONE 

39 0301 
40 $306 SIDE EFFECTS: 

41 30 
4g Bene The OWN storage used to remember the last error is set to 0. 
44 0306 


te gece 
1-00 
45 


48 


Bee Oe Oe Oe Oe ae Be OH Oe Oe Oe SHOE Oe Oe SESH Se SHOE SH ae SESH Oe SH Seas 
POPEPONPOPENoPONoMoNoNofofpofnenonofopyry 
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; Routine 


50 6C 
E7 
Size: 53 bytes, 


RAN ERRSNS and save error info 
NS_W 


BEGIN 


7 
1$-Sep-1984 00:31: 


BUILTIN NULLPARAMETER, ACTUALPARAMETER; 


LOCAL 


NPARMAX_LONGS: VECTORCNPARMAX,LONG); 


'¢ 
Get ERRSNS data into longword LOCAL storage 


i yore a AP Pl lf 
6 FORRTL.SRCJFORERRSNS .B32;1 


! Five lLongwords to contain results from FORSERRSNS 


FORSERRSNS (NPARMAX_LONGS(O], NPARMAX_LONGSC1], NPARMAX_LONGSC2), 
NPARMAX_LONGS(C3J, NPARMAX_LONGS(4]); 


'¢ 


! Copy longwords back to caller's word parameters 
} Parameters are l-origin, VECTOR is O-origin. 


INCR I FROM 1 TO NPARMAX 


IF NOT NULLPARAME 


'¢ 


Return 

RETURN 

END; 
5E 

AD AF 

50 
8 
51 
61 
50 


Routine Base: 


0078 00000 
14 C2 00002 
19 AE 9F 00005 
1 AE 9F 444 
10 AE 9F 00008 
10 AE 9F QOOODE 
10 AE 9F 00011 
0 fe 0014 
01 OD 18 

fT 

6C4 

09 6 

Fo REGO FP 000 
05 £3 000 8 
04 00034 


_FORSCODE + 0038 


M 
1$: CMPZV 
BLSS 


CVTLW 
2$: AOBLEQ 
RET 


MAX DO 
TER (.1) THEN ACTUALPARAMETER(.1)<0,16> = .NPARMAX_LONGSC.1-1]; 


FORSERRSNS_W, Save nothing 


NPARMAX_LONGS+16 
NPARMAX~LONGS+12 
NPARMAX_LONGS+8 


#0, #8, (AP), I 
(AP)CI) 


(AP)CIJ, R1 
NPARMAX LONGS~4C11, (R1) 
5, 1, 7 


Page 
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1) 
16-Sep-1 21:34 AX-11 
SERRSNS_SAV 1o-Se0-138e 00:91 586 FORRTL. BR CJFORERRSNS. "aS, 31 (5) 


1 XSBTTL*FORSSERRSNS SAV' 
GLOBAL RPORT NE FORSSERRSNS_SAV ( 
FORT_ERR_NO 


f- 


75 


FORTRAN error number (0:120) or 32-bit cond value 
for some other ge HA other than FORS. 

value to set RMS status 

value to set RMS/VMS value 

value to set FORTRAN to Yeal unit number 

value to set VAX=-11 condition value 

Hs ' No value returned 


+ 
FUNCTIONAL DESCRIPTION: 


Called on every error condition. Sets FORTRAN error info - storage 
for use in sub-sequent calls by FORSERRSNS and FORSERRSNS_W 
Separate data bases are kept for AST and non-AST level 
so that they do not conflict. That is the last error returned 
is that which occurred at the level of the caller (AST Level 
or not AST level). Therefore a modular re-entrant procedure 
can CALL FORSERRSNS SAV and still remain AST re-entrant 
Note: successful 1/0 operations do not affect the 
error information OWN storage. | 
Non-FORTRAN s sy ersors should be indicates arya 
sel 2-bit condition yeiue not FORS facil a 
x Ti COND VAL = same, ie. OTSS_F AFINTERR, wots NTDATCOR 
In this cont the FORTRAN error number slerad wil FOR$K_NOTFORSPE 
which has a value of 1 and indicated a Seo PORTRAN apeatd c error. 


FORMAL PARAMETERS: 


FORT_ERR_NO.rlu.v value to speci fy 
or 32-bit condition value for another facility error. 

RMS_STS.wlu.v value to set RMS status 

RMS ST¥. we gl value to set RMS/VMS value 

FORT UN.wlu value to set FORTRAN logical unit no. 

VAX_T1_COND VAL. wle.v value to set VAX=-11 condition value 
| 
| 
| 
| 
| 


RMS <3. 


VIFWR—OODONAUS WH —OOMW 


SlSSR SSeS Se oho ae 
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¢ 
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FORTRAN error number (0:120) 


IMPLICIT INPUTS: 
VMS info whether an AST is in progress or not (using LIBSAST_IN_PROG) 
IMPLICIT OUTPUTS: 


Either LAST_ERROR_INFO vector or LAST_AST_INFO vector is set 
depending on the Tevel of the caller TAST or in progress or not) 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
The OWN storage used to remember the last error is set. 


BEGIN 
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608 FORSSERRSNS_SAV 1-8ep-19 4 99:91:86 FORRTL. RCIFORERRSNS .B 2;1 ” (5) 
; ; 3 BUILTIN ACTUALPARAMETER; 
; 4 95 AP 
; 2 38 aVAX.1 1 CONDVAL : BLOCK(C4, BYTE); ! Condition value 
3 4 0398 LAST_INFO: REF VECTORCNPARMAX+1,LONG); ! Base pointer to either LAST_ERROR_INFO or LAST_AST_INFO 
; 9 0400 
; 340 0401 1+ 
> 341 Bes ! Determine whether an AST is in progress or not and set up 
3 38 Ree? base pointer LAST_INFO to point to OWN storage for that level. 
: 344 0405 
; 349 0406 LAST_INFO = (IF LIBSAST_IN_PROG () THEN LAST_AST_INFO ELSE LAST_ERROR_INFO); | 
> 347 0408 '+ 
; £8 0409 ' Copy all formals to OWN storage 
; 49 0410 l= 
; 350 041° 
3 3) Reig INCR I FROM 1 TO NPARMAX DO 
; 326 041 2 LAST_INFOC.I1J = ACTUALPARAMETER(.1); 
; 3 0414 
3 «398 0415 '¢ 
3 399 0416 ! Check FORTRAN error number, if already a 32-bit condition value 
; 356 0417 2 ! change to FORSK_NOTFORSPE to indicate a non-FORTRAN specific error 
3 Sor 0418 § ! (error number = 1). 
; 358 0419 !- 
; 359 0420 2 
; 360 0421 2 IF .FORT_ERR_NO GTRU FORSK_MAX_ERR 
; 361 bess 2 H 
; 36 0423 2 LAST_INFOL1) = FORSK_NOTFORSPE; 
; 0424 2 
: 364 0425 2 '¢ 
3 365 0426 2 ! If the user is using ERRSET or ERRTST, call back to RECORD_ERROR 
; 366 0427 2 ! in module COMSERRSET_TST to record the error. 
; 367 0428 2 te 
; 368 oh) 2 
; 369 0430 2 IF .RECORD_ERROR_ADDR NEQA 0 | 
; 370 0431 2 
; ri okt BLISS (.RECORD_ERROR_ADDR, .LAST_INFO (1)); 
s Se 043 
s; STs 0434 + 
3 ee at $4 Return 
3 38 §¢39 é 
s srr 0438 2 RETUR 
: 378 0439 1 END; 


0004 00000 ENTRY FORSSERRSNS SAV, Save R2 ; 0337 
52 00000000" FF 9 00002 MOVAB LAST_AST_INFO, ; 
000000006 § Op FB 0000 CALLS 40, BSAST_IN_PROG ; 0406 | 
1 23 Se 00018 MOVAB LAST_AST_INFO, LAST_INFO : | 


F 7 
tala FORTRAN ERRSNS and save error info 16-Sep 
1-06 FORSSERRSNS_SAV 14-Sep 

04 11:00 +} 
2 E8 A 9 18 1$: 
0 01 OD 1C gf: 
614 ocee D 1F 3$: 
7 ; 05 F 4 
00000050 F 04 a ih 
046 «AI 8 D 
50 18 A2 OD 036 4$: 
06 1 8° A 
04 Al DD 0003Cc 
60 01 FB 608 F 
04 00042 5$: 


; Routine Size: 67 bytes, Routine Base: _FORSCODE + 0070 


RH Mee eb afi cette ore 


2$ 

LAST_ERROR_INFO, LAST_INFO 
"ley bry (LAST_INFO)CIJ 

5, I 

ig ERR_NO, #93 


4(LAST_INFO) 
RECORDS ERROR_ADDR, RO 


4 (LAST. INFO) 
#1, (RO) 


Sete Se Se 


Se Pe Se Se Ge Se Se Se Be 
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1-00 FORSSINIT_ERRSET 14-Sep-1984 51:56 FORRTL.SRC FORERRENS. B32;1 (6 


; 380 440 1 XSBITL*FORSSINIT_ERRSET' 
; 441 1 GLOBAL ROUTINE FORSSINIT_ERRSET ( 
3 0442 1 et ADDR 
; 0445 1 :NOVACUE = 
> 384 444 1 !44 
; 5? ot? } FUNCTIONAL DESCRIPTION: 
; 387 pee? ii Called by COM_STARTUP in COMSSERRSET_TST when ERRSET or ERRTST 
; 388 0448 1} as been included in the image. It passes the address of a routine 
; 389 0449 1! (RECORD ERROR) which we are to call whenever an I/0 error occurs. 
; 390 0450 1! This allows the ERRSET/ERRTST table to keep informed of all 
3 bees : errors that occur, not just the ones that don't get trapped. | 
; 
; 0488 1 | FORMAL PARAMETERS: 
; 394 0454 1 | | 
3; a 0455 1} ROUTINE _ADDR The address of the routine to call. This is stored 
; 396 0456 1! in our OWN storage RECORD_ERROR, ADDR. 
; Wr 0457 1: 
; 398 0458 1 | IMPLICIT INPUTS: | 
; 399 0459 1 
; 400 0460 1 | NONE 
; 0461 1! 
; ee : IMPLICIT OUTPUTS: 
; 0464 1 ! The routine's address is stored in RECORD_ERROR_ADDR . 
; 405 0465 1 | 
; 406 0466 1 | ROUTINE VALUE: 
: 7 0467 1! 
; 408 0468 1! NONE 
: 409 0469 1! 
: 410 0470 1 | SIDE EFFECTS: | 
> 6411 0471 1! 
: 412 0472 1! NONE 
3; 6413 0473 1 I+ 
> 416 0474 1 
; 6415 0475 2 BEGIN | 
: 416 0476 § 
: 417 0477 '¢ 
; 418 0478 i Store the routine address. 
3: 419 0479 ie 
: 20 0480 
; 4¢1 0481 RECORD_ERROR_ADDR = .ROUTINE_ADDR; 
: 4 $ pete 
: 6 4 14 
; asi be 4 ' Return 
; 425 485 te 
; $38 486 
; 6 0487 RETURN 
; 428 0488 END; 
0000 0 609 -ENTRY FORSSINIT_ERRSET, Save nothin > 0441. 
00000000" EF 04 AC »? 8 h4 MOVL ROUTINE_ABDR, RECORD_ERROR_AD R : ok | 


; Routine Size: 


Tite :CSYSLIBISTARL 
~$255$DUA28: CFORRTL.OBJIR 


; Lexenes/CPU-Min: 


NS and save error info 
RSET 
11 bytes, Routine Base: _FORSCODE + 0083 


0489 1 END ! end of module 
0490 0 ELUDOM ' 


PSECT SUMMARY 


—7 
1o 
Qn 


V4.0-7 
PORRTLS sR CJFORERRSNS. ; 231 


Bytes Attributes 


52 NOVEC, WRT, RD ,NOEXE,NOSHR, 
190 NOVEC,NOWRT, RD, EXE, SHR, 


Library Statistics 


cocccece Symbols -------- 

Total Loaded Percent 

ET.L32;1 9776 0 0 
:CFORRTL.OBJJFORLIB.L32;1 711 2 0 
TLLIB.L32;1 36 0 0 


COMMAND QUALIFIERS 


BLISS/CHECK= (FIELD. INITIAL OPTIMIZE) /MOTRACE/L1S=L 15S: F ORERRSNS/0BJ=08)$ :FORERRSNS MSRC$:FORERRSNS/UPDATE=(ENH$:F ORERRSNS 


52 data bytes 


50 pages 


tion hemteen 
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